home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / 3827.ZIP / LOGOLIB.ZIP / SPIRAL.LG < prev    next >
Encoding:
Text File  |  1990-06-12  |  705 b   |  28 lines
  1. to spiral :angle :repeat :incr
  2. !! 
  3. !! Spirals, by Meyer A. Billmers
  4. !!  
  5. !! This procedure makes pretty spirals. I suggest you first do a 
  6. !! hideturtle so the drawing will proceed at a reasonable rate.
  7. !! 
  8. !! angle   is the amount of turn at each piece, 
  9. !! repeat  is the number of turns before the distance is incremented, and
  10. !! incr    is the amount of distance increment.
  11. !! 
  12. !! Suggested fun spirals:
  13. !!     spiral 90 2 10
  14. !!     spiral 91 2 10
  15. !!     spiral 60 3 10
  16. !!     spiral 61 3 10
  17. !!     spiral 179 2 5
  18. !!     spiral 20 10 4
  19. !! 
  20. make "len :incr
  21. make "ctr 0
  22. 10 fd :len
  23. rt :angle
  24. make "ctr :ctr + 1
  25. if :ctr = :repeat [make "ctr 0; make "len :len + :incr]
  26. go 10
  27. end
  28.